home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Dynamic Bu22180742001.psc / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-07-04  |  3.5 KB  |  102 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   6015
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   8685
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6015
  14.    ScaleWidth      =   8685
  15.    Begin VB.CommandButton Command5 
  16.       Caption         =   "Remove icon"
  17.       Height          =   495
  18.       Left            =   120
  19.       TabIndex        =   5
  20.       Top             =   2880
  21.       Width           =   3135
  22.    End
  23.    Begin VB.CommandButton Command4 
  24.       Caption         =   "Add icon"
  25.       Height          =   495
  26.       Left            =   120
  27.       TabIndex        =   4
  28.       Top             =   2280
  29.       Width           =   3135
  30.    End
  31.    Begin VB.CommandButton Command3 
  32.       Caption         =   "Icons stay on top"
  33.       Height          =   495
  34.       Left            =   120
  35.       TabIndex        =   3
  36.       Top             =   1680
  37.       Width           =   3135
  38.    End
  39.    Begin VB.CommandButton Command2 
  40.       Caption         =   "Editable yes/no"
  41.       Height          =   855
  42.       Left            =   120
  43.       TabIndex        =   1
  44.       Top             =   720
  45.       Width           =   3135
  46.    End
  47.    Begin VB.CommandButton Command1 
  48.       Caption         =   "Set captions-property"
  49.       Height          =   495
  50.       Left            =   120
  51.       TabIndex        =   0
  52.       Top             =   120
  53.       Width           =   3135
  54.    End
  55.    Begin VB.Label Label1 
  56.       Caption         =   "1. Change caption with right-mouse click on the groups"
  57.       Height          =   255
  58.       Left            =   3480
  59.       TabIndex        =   2
  60.       Top             =   720
  61.       Width           =   4935
  62.    End
  63. Attribute VB_Name = "Form1"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Private Sub Command1_Click()
  69.     MDIForm1.ButtonBar1.Caption(0) = "This"
  70.     MDIForm1.ButtonBar1.Caption(1) = "property"
  71.     MDIForm1.ButtonBar1.Caption(2) = "sets"
  72.     MDIForm1.ButtonBar1.Caption(3) = "the"
  73.     MDIForm1.ButtonBar1.Caption(4) = "captions"
  74.     MDIForm1.ButtonBar1.Caption(5) = "for the groups"
  75. End Sub
  76. Private Sub Command2_Click()
  77.     MDIForm1.ButtonBar1.Editable = Not MDIForm1.ButtonBar1.Editable
  78.     If MDIForm1.ButtonBar1.Editable Then
  79.         Command2.Caption = "&Editable"
  80.     Else
  81.         Command2.Caption = "Not &Editable"
  82.     End If
  83. End Sub
  84. Private Sub Command3_Click()
  85.     MDIForm1.ButtonBar1.IconsStayUp = Not MDIForm1.ButtonBar1.IconsStayUp
  86.     If MDIForm1.ButtonBar1.IconsStayUp Then
  87.         Command3.Caption = "&Icons StayUp"
  88.     Else
  89.         Command3.Caption = "&Icons do not StayUp"
  90.     End If
  91. End Sub
  92. Private Sub Command4_Click()
  93.     'In this version... you must make sure the localindex is ascending within a group
  94.     MDIForm1.ButtonBar1.AddButton 1, 1, "Group 1 - One", MDIForm1.ImageList1.ListImages(1).Picture
  95.     MDIForm1.ButtonBar1.AddButton 1, 2, "Group 1 - Two", MDIForm1.ImageList1.ListImages(2).Picture
  96.     MDIForm1.ButtonBar1.AddButton 4, 1, "Group 4 - One", MDIForm1.ImageList1.ListImages(3).Picture
  97.     MDIForm1.ButtonBar1.AddButton 5, 1, "Group 5 - One", MDIForm1.ImageList1.ListImages(4).Picture
  98. End Sub
  99. Private Sub Command5_Click()
  100.     MDIForm1.ButtonBar1.DeleteButton 1, 2
  101. End Sub
  102.